home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / misc / a8085.lha / A8085 V1.0 / SRC / BitShift.a < prev    next >
Text File  |  1995-07-31  |  457b  |  28 lines
  1. ; Shift 4Byte bitfield n times cyclic to left
  2.  
  3.         org $1000
  4. ntimes: dc.b 8
  5. bdata:  dc.b %11010010,%11010001,%01001001
  6. edata:  dc.b                              %10111010
  7.  
  8.  
  9. shift: lxi h,bdata
  10.        mvi b,edata-bdata+1
  11.        mov a,m
  12.        rlc
  13.        lxi h,edata
  14. loop:  mov a,m
  15.        ral
  16.        mov m,a
  17.        dcx h
  18.        dcr b
  19.        jnz loop
  20.        ret
  21.  
  22. start: lxi h,ntimes
  23.        mov c,m
  24. sloop: call shift
  25.        dcr c
  26.        jnz sloop
  27.        hlt
  28.